1 WIDTH40:H=1:V=1
2 IFY>2THENLOCATEX,Y:PRINT"*";
3 X=X+H:Y=Y+V:IFY=0ORY=21THENV=-V
4 IFX=0ORX=18THENH=-H:GOTO2ELSE2